|
|  Rules for Applegate patience
|  Written by Ph.DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Applegate"

  FLAGS ClickFly AnimateFly
  PACKS 1
  WIDTH  8 * CW
  HEIGHT 1 * CH + 6 * COH + 20 * COH
  ZEROTOWIN 4 - SEQUENCES$3

| Reserve

  FOR stack = 0 TO 2
    STACK
      X 0
      Y stack * CH + CH
      MAX 0
      DEAL 1, 1
      FLAGS ClickFly
    END
  END

| Tableau

  FOR stack = 1 TO 1
    STACK
      X stack * CW
      Y 0
      FIRST 13
      ID 3
      JOINOFFSET -1
      Sequence SeqSS__, x13, -1, 13
      DEAL 7, 1
      FLAGS ShallowCheck JoinSS__ ClickFly RotateJoin
    END
  END

  FOR stack = 2 TO 7 
    STACK
      X stack * CW
      Y 0
      FIRST 13
      ID 3
      JOINOFFSET -1
      Sequence SeqSS__, x13, -1, 13
      DEAL 7, 3
      FLAGS ShallowCheck JoinSS__ ClickFly RotateJoin
    END
  END

END
